home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 023a / prop_man.zip / PRINTING.SAB < prev    next >
Text File  |  1991-11-12  |  1KB  |  42 lines
  1. *(PRINTING.SAB 10-07-88)
  2. label psheet
  3. set messages off
  4. set error messages off
  5. set bell off
  6. set null " "
  7. OUTPUT SCREEN
  8. cls
  9. display cp.dis
  10. write "PRINTING.SAB" at 2,36
  11. write "Printing Posting Sheets" AT 9,28
  12. out pri
  13. pri espost sor by add.code yet.due whe oner = elmer ; clear all v
  14. pri tranattn sor by add.code whe flag = y ; clear all v
  15. pri sanction where rec.date = .#date
  16. pri bbpost sor by add.code yet.due whe oner = e&b ; clear all v
  17. pri bbpost sor by add.code yet.due whe oner = e&b ; clear all v
  18. pri menpost sor by add.code whe add.code con men ; clear all v
  19. pri elmen sor by add.code whe add.code con men and oner = elmer ; clear all v
  20. pri brmen sor by add.code whe add.code con men and oner = "e&b" ; clear all v
  21. pri oxford sor by add.code whe add.code con oxf0920 ; clear all v
  22. pri parkview sor by add.code whe add.code con jef0808 ; clear all v
  23. PRI BRIDGE SOR BY ADD.CODE WHE ADD.CODE CON BRI0508 ; CLEAR ALL V
  24. pri radio sor by add.code whe oner = rah ; clear all v
  25. out scr
  26. set v y/n to ""
  27. beep ; beep
  28. fillin y/n using "Reprint The Posting Sheets?  " at 11,26
  29. if y/n = "y" or y/n = "yes" then ; goto psheet ; endif
  30. CLS
  31. display cp.dis
  32. write "PRINTING.SAB" at 2,36
  33. write "Appending Transact " at 12,31
  34. append transact to thistory where add.code exists
  35. write "Deleting " at 12,31
  36. delete rows from transact where add.code exists
  37. append newsanct to sanction where add.code exists
  38. delete rows from newsanct where add.code exists
  39. cls
  40. return
  41.  
  42.